Softwarová Záchrana 3/Softwarova-zachrana-3.bin/1-4a Rename/rename.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2002-11-19 | 55KB | 2,225 lines

object Form1: TForm1
  Left = 304
  Top = 0
  HorzScrollBar.Visible = False
  VertScrollBar.Size = 10
  VertScrollBar.Visible = False
  AutoScroll = False
  ClientHeight = 777
  ClientWidth = 802
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDefault
  ShowHint = True
  OnCreate = FormCreate
  OnKeyDown = maybectrl
  OnKeyUp = noctrl
  OnResize = SetSizes
  OnShow = InitStart
  PixelsPerInch = 96
  TextHeight = 13
  object PanelReplace: TPanel
    Left = 3
    Top = 393
    Width = 297
    Height = 265
    BevelInner = bvRaised
    BorderStyle = bsSingle
    Color = 10538727
    ParentShowHint = False
    ShowHint = True
    TabOrder = 6
    object Bevel1: TBevel
      Left = 2
      Top = 148
      Width = 287
      Height = 16
      Shape = bsTopLine
      Style = bsRaised
    end
    object Bevel7: TBevel
      Left = 216
      Top = 5
      Width = 53
      Height = 141
      Shape = bsLeftLine
    end
    object Bevel12: TBevel
      Left = 98
      Top = 178
      Width = 191
      Height = 50
      Shape = bsTopLine
    end
    object Bevel11: TBevel
      Left = 66
      Top = 208
      Width = 50
      Height = 45
      Shape = bsLeftLine
    end
    object Bevel6: TBevel
      Left = 124
      Top = 3
      Width = 41
      Height = 142
      Shape = bsLeftLine
    end
    object Bevel14: TBevel
      Left = 152
      Top = 208
      Width = 50
      Height = 45
      Shape = bsLeftLine
    end
    object Bevel15: TBevel
      Left = 3
      Top = 203
      Width = 286
      Height = 14
      Shape = bsTopLine
    end
    object Bevel13: TBevel
      Left = 94
      Top = 152
      Width = 50
      Height = 49
      Shape = bsLeftLine
    end
    object SpeedbuttonReplace: TSpeedButton
      Left = 248
      Top = 104
      Width = 23
      Height = 22
    end
    object CheckSwap: TCheckBox
      Left = 220
      Top = 3
      Width = 71
      Height = 17
      Hint =
        'Swaps parts within the name. "Thriller - Jackson.wav" => "Jackso' +
        'n - Thriller.wav". With this function you can also multiply, inv' +
        'ert, delete, insert.'
      Caption = 'Swap/add'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = SetChecks
    end
    object StaticText2: TStaticText
      Left = 19
      Top = 156
      Width = 71
      Height = 17
      Hint =
        'Whenever you type in "$" in a Replace/Insert/Swap field a number' +
        ' will be inserted instead.'
      Caption = 'will be number'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 34
    end
    object StaticText3: TStaticText
      Left = 19
      Top = 180
      Width = 65
      Height = 17
      Hint = '1984737 => 1'#39'984'#39'737'
      Caption = 'splits number'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 36
    end
    object EditAddBeg: TEdit
      Left = 128
      Top = 20
      Width = 81
      Height = 21
      Hint = 'Insert this text.'#13#10'(You can use "$" to insert number.)'
      ParentShowHint = False
      PopupMenu = PopupMenu2
      ShowHint = True
      TabOrder = 7
      OnChange = SetChecksDelayed
    end
    object EditNumberRepresenter: TEdit
      Left = 3
      Top = 154
      Width = 16
      Height = 21
      Hint = 'This represents numbers. Please delete for no representer'
      MaxLength = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      Text = '$'
      OnChange = SetChecksDelayed
    end
    object CheckChangeNum: TCheckBox
      Left = 101
      Top = 183
      Width = 64
      Height = 17
      Hint =
        'Add leading zero (or whatever you specify) to existing number. "' +
        'pic2 high.jpg" => "pic002 high.jpg". Numbers separated by '#39' are ' +
        'recognized as linked numbers, e.g 1'#39'234 is treated as 1234'
      Caption = 'Add lead'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = SetChecks
    end
    object EditSequence: TEdit
      Left = 220
      Top = 46
      Width = 70
      Height = 21
      Hint = '<1>=First part <2>=second part <0>=Separator'
      ParentShowHint = False
      PopupMenu = PopupMenu2
      ShowHint = True
      TabOrder = 10
      Text = '<2><0><1>'
      OnChange = SetChecksDelayed
    end
    object EditPartSeparator: TEdit
      Left = 271
      Top = 22
      Width = 19
      Height = 21
      Hint = 'Parts are separated by...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 12
      Text = '.'
      OnChange = SetChecksDelayed
    end
    object ComboReplaceOccurenceSwap: TComboBox
      Left = 221
      Top = 73
      Width = 69
      Height = 21
      Cursor = crHandPoint
      Hint = 'Last occurence of separator or first, second...'
      Style = csDropDownList
      DropDownCount = 12
      ItemHeight = 13
      Items.Strings = (
        'last occurence'
        '1st occurence'
        '2nd occurence'
        '3rd occurence'
        '4th occurence'
        '5th occurence'
        '6th occurence'
        '7th occurence'
        '8th occurence'
        '9th occurence')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 13
      OnChange = SetChecks
    end
    object CheckKeepCase: TCheckBox
      Left = 51
      Top = 113
      Width = 73
      Height = 17
      Hint =
        'When checked: '#39'a'#39' =>'#39'b'#39' would result in '#39'Afghanistan'#39' => '#39'Bfghbn' +
        'istbn'#39
      Caption = 'keep case'
      Ctl3D = True
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 14
      OnClick = SetChecks
    end
    object StaticText4: TStaticText
      Left = 186
      Top = 184
      Width = 33
      Height = 17
      Caption = 'Digits:'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 15
    end
    object StaticTextStep: TStaticText
      Left = 160
      Top = 156
      Width = 24
      Height = 17
      Caption = 'step'
      TabOrder = 16
    end
    object EditFillChar: TEdit
      Left = 181
      Top = 69
      Width = 17
      Height = 21
      Hint =
        'Use this to fill up, when inserting position is higher than leng' +
        'th'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 17
      Text = ' '
      OnChange = SetChecksDelayed
    end
    object ComboNumsystem: TComboBox
      Left = 158
      Top = 209
      Width = 131
      Height = 21
      Cursor = crHandPoint
      Hint =
        'Use this system for numbernig or renumbering. Standard is the de' +
        'cimal system.'
      Style = csDropDownList
      Ctl3D = True
      ItemHeight = 13
      Items.Strings = (
        'decimal (10)'
        'hexadecimal(16)'
        'octal (8)'
        'binary (2)'
        'roman/latin'
        'excel')
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 18
      OnChange = SetNumSys
    end
    object StaticTextFilledUp: TStaticText
      Left = 128
      Top = 72
      Width = 53
      Height = 17
      Caption = 'fill up with:'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 19
    end
    object EditNumsystem: TEdit
      Left = 159
      Top = 234
      Width = 74
      Height = 21
      Hint = 'Numbering system'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 28
      OnChange = SetNumSysEdit
    end
    object EditLeadingNumSystemChar: TEdit
      Left = 166
      Top = 181
      Width = 17
      Height = 21
      Hint =
        'Leading char (for example "0"). This will be inserted BEFORE the' +
        ' number, if the number is shorter than the number of the represe' +
        'nter'
      MaxLength = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 31
      Text = '0'
      OnChange = SetChecksDelayed
    end
    object CheckExcelNumSystem: TCheckBox
      Left = 238
      Top = 230
      Width = 48
      Height = 17
      Hint =
        'Don'#39't use zero. Like in Excel: Start with "a", next is not "a0",' +
        ' but "aa"'
      Caption = 'Excel'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 39
      OnClick = SetChecks
    end
    object StaticTextSwapExtension: TStaticText
      Left = 218
      Top = 24
      Width = 53
      Height = 17
      Caption = 'Separator:'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 43
    end
    object EditPreNum: TEdit
      Left = 39
      Top = 207
      Width = 23
      Height = 21
      Hint = 'Insert this text BEFORE the number'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 20
      OnChange = SetChecksDelayed
    end
    object EditPostNum: TEdit
      Left = 39
      Top = 231
      Width = 23
      Height = 21
      Hint = 'Insert this AFTER the number'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 21
      OnChange = SetChecksDelayed
    end
    object StaticTextPreNum: TStaticText
      Left = 4
      Top = 209
      Width = 35
      Height = 17
      Caption = 'Before'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 22
    end
    object StaticTextPostNum: TStaticText
      Left = 13
      Top = 233
      Width = 26
      Height = 17
      Caption = 'After'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 23
    end
    object SpinButtonStep: TSpinButton
      Left = 202
      Top = 154
      Width = 15
      Height = 21
      DownGlyph.Data = {
        AE000000424DAE00000000000000360000002800000009000000060000000100
        1000000000007800000000000000000000000000000000000000E03DE03DE03D
        E03DE03DE03DE03DE03DE03D0300E03DE03DE03DE03D0000E03DE03DE03DE03D
        0004E03DE03DE03D000000000000E03DE03DE03DFE02E03DE03D000000000000
        00000000E03DE03DFA00E03D0000000000000000000000000000E03DB556E03D
        E03DE03DE03DE03DE03DE03DE03DE03D6100}
      ParentShowHint = False
      ShowHint = True
      TabOrder = 27
      UpGlyph.Data = {
        AE000000424DAE00000000000000360000002800000009000000060000000100
        1000000000007800000000000000000000000000000000000000E03DE03DE03D
        E03DE03DE03DE03DE03DE03D0100E03D0000000000000000000000000000E03D
        F203E03DE03D00000000000000000000E03DE03D0200E03DE03DE03D00000000
        0000E03DE03DE03D0004E03DE03DE03DE03D0000E03DE03DE03DE03D2102E03D
        E03DE03DE03DE03DE03DE03DE03DE03DCA81}
      OnDownClick = DecSpinStep
      OnUpClick = IncSpinStep
    end
    object CheckOverlay: TCheckBox
      Left = 127
      Top = 95
      Width = 67
      Height = 17
      Hint = 'Do not insert, but "paste over"'
      Caption = 'overlay'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 41
      OnClick = SetChecks
    end
    object CheckKeepCaseInsert: TCheckBox
      Left = 127
      Top = 111
      Width = 75
      Height = 17
      Hint = 'Keep the same case, when overlaying'
      Caption = 'keep case'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 40
      OnClick = SetChecks
    end
    object CheckReplaceOnlyOneTime: TCheckBox
      Left = 60
      Top = 96
      Width = 49
      Height = 17
      Hint = 'Replace only 1 occurence'
      Caption = '1 time'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 32
      OnClick = SetChecks
    end
    object ComboReplaceOccurence: TComboBox
      Left = 5
      Top = 74
      Width = 116
      Height = 21
      Cursor = crHandPoint
      Hint =
        'Start replacing from the first occurence on, the second on, the ' +
        'third on...the last'
      Style = csDropDownList
      DropDownCount = 12
      ItemHeight = 13
      Items.Strings = (
        'last occurence'
        '1st occurence'
        '2nd occurence'
        '3rd occurence'
        '4th occurence'
        '5th occurence'
        '6th occurence'
        '7th occurence'
        '8th occurence'
        '9th occurence'
        'at beginning'
        'at end')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 33
      OnChange = SetChecks
    end
    object EditNumberseparator: TEdit
      Left = 3
      Top = 178
      Width = 16
      Height = 21
      Hint = '1234 => 1'#39'234. Separate large numbers.'
      MaxLength = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 35
      Text = #39
      OnChange = SetChecksDelayed
    end
    object CheckInsert: TCheckBox
      Left = 128
      Top = 3
      Width = 87
      Height = 17
      Hint = '"listen.txt" => "012 listen.txt"'
      Caption = 'Insert/append'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 29
      OnClick = SetChecks
    end
    object CheckReplaceWholeword: TCheckBox
      Left = 5
      Top = 129
      Width = 81
      Height = 17
      Hint =
        'Find only whole words. If you search for "hi" then "hi there" wo' +
        'uld be found, "high" not.'
      Caption = 'whole word'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 37
      OnClick = SetChecks
    end
    object CheckVV: TCheckBox
      Left = 73
      Top = 3
      Width = 46
      Height = 17
      Hint = 'Changes all '#39'a'#39' to '#39'b'#39' and all '#39'b'#39' to '#39'a'#39
      Caption = 'swap'
      TabOrder = 38
      OnClick = SetChecks
    end
    object CheckRenumber: TCheckBox
      Left = 249
      Top = 184
      Width = 40
      Height = 17
      Hint = 'Replace an existing number by a totally new number'
      Caption = 'new'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = SetChecks
    end
    object SpinReplaceNumAnz: TSpinEdit
      Left = 216
      Top = 181
      Width = 30
      Height = 22
      Hint =
        'All numbers will have this number of digits. So "3" would make "' +
        '001" out of "1" and "056" out of "56"'
      MaxValue = 255
      MinValue = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Value = 3
      OnChange = SetChecks
    end
    object StaticTextAt: TStaticText
      Left = 127
      Top = 50
      Width = 25
      Height = 17
      Caption = 'Pos:'
      ParentShowHint = False
      ShowHint = False
      TabOrder = 3
    end
    object EditReplace: TEdit
      Left = 5
      Top = 21
      Width = 113
      Height = 22
      Hint =
        'Replace this text in all filenames. If you want to replace the w' +
        'hole name, just leave this field empty.'
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Text = 'this'
      OnChange = SetChecksDelayed
    end
    object EditReplaceWith: TEdit
      Left = 5
      Top = 48
      Width = 115
      Height = 22
      Hint = 'This will be the new text. (You can use "$" to insert number)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      PopupMenu = PopupMenu2
      ShowHint = True
      TabOrder = 6
      Text = 'by that'
      OnChange = SetChecksDelayed
    end
    object CheckReplace: TCheckBox
      Left = 5
      Top = 3
      Width = 62
      Height = 17
      Hint = 'Replace within a filename'
      Caption = 'Replace'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SetChecks
    end
    object CheckReplaceOverlay: TCheckBox
      Left = 5
      Top = 96
      Width = 55
      Height = 17
      Hint =
        'Replace "a" => "ba" in "lasso" would normally result in "hbasso"' +
        '. When Overlay is turned on however it results in "Lbaso", becau' +
        'se "ba" is laid over "lasso" at position of "a"'
      Caption = 'overlay'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = SetChecks
    end
    object StaticText1: TStaticText
      Left = 98
      Top = 156
      Width = 24
      Height = 17
      Caption = 'start'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 30
    end
    object ComboAdd: TComboBox
      Left = 71
      Top = 208
      Width = 77
      Height = 21
      Cursor = crHandPoint
      Hint = 'Change existing number by adding (multiplying...)'
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'Add'
        'Subtract'
        'Multiply'
        'Power')
      TabOrder = 44
      OnChange = SetChecks
    end
    object MaskAddEdit: TEdit
      Left = 71
      Top = 232
      Width = 76
      Height = 21
      Hint = 'Add this value to existing number.'
      TabOrder = 45
      Text = '0'
      OnChange = SetChecks
    end
    object SpinButton2: TSpinButton
      Left = 144
      Top = 154
      Width = 15
      Height = 21
      Ctl3D = True
      DownGlyph.Data = {
        AE000000424DAE00000000000000360000002800000009000000060000000100
        1000000000007800000000000000000000000000000000000000E03DE03DE03D
        E03DE03DE03DE03DE03DE03D0500E03DE03DE03DE03D0000E03DE03DE03DE03D
        9801E03DE03DE03D000000000000E03DE03DE03D9501E03DE03D000000000000
        00000000E03DE03DF801E03D0000000000000000000000000000E03D0600E03D
        E03DE03DE03DE03DE03DE03DE03DE03DB556}
      ParentCtl3D = False
      TabOrder = 24
      UpGlyph.Data = {
        AE000000424DAE00000000000000360000002800000009000000060000000100
        1000000000007800000000000000000000000000000000000000E03DE03DE03D
        E03DE03DE03DE03DE03DE03D0300E03D0000000000000000000000000000E03D
        9801E03DE03D00000000000000000000E03DE03D9801E03DE03DE03D00000000
        0000E03DE03DE03DC801E03DE03DE03DE03D0000E03DE03DE03DE03DC981E03D
        E03DE03DE03DE03DE03DE03DE03DE03D6000}
      OnDownClick = DecSpin2
      OnUpClick = IncSpin2
    end
    object MaskSpinEdit2: TMaskEdit
      Left = 120
      Top = 153
      Width = 25
      Height = 21
      Hint =
        'Starting number for numbering files. You may try HUGE numbers, e' +
        'ven for Latin numbering.'
      Ctl3D = True
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 25
      Text = '1'
      OnChange = CorrectNumberAndRenameTest
    end
    object MaskSpinEditStep: TMaskEdit
      Left = 182
      Top = 153
      Width = 22
      Height = 21
      Hint = 'Stepping when numbering'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 26
      Text = '1'
      OnChange = CorrectNumberAndRenameTest
    end
    object CheckRenumberPerSubdir: TCheckBox
      Left = 221
      Top = 157
      Width = 69
      Height = 17
      Hint = 'Each subdirectory has it'#39's own numbering'
      Caption = 'folderwise'
      TabOrder = 42
      OnClick = SetChecks
    end
    object SpinEditInsertPos: TSpinEdit
      Left = 152
      Top = 45
      Width = 57
      Height = 22
      Hint = 'Insert at this position. 0 to insert at the end.'
      MaxValue = 0
      MinValue = 0
      TabOrder = 46
      Value = 1
      OnChange = SetChecksDelayed
    end
    object CheckAsIPAddress: TCheckBox
      Left = 238
      Top = 242
      Width = 47
      Height = 17
      Hint = 'Format number as an IP address'
      Caption = 'as IP'
      TabOrder = 47
      OnClick = SetChecks
    end
    object CheckTrim: TCheckBox
      Left = 80
      Top = 129
      Width = 37
      Height = 17
      Hint =
        'If something has been replace: Deletes spaces to the left and ri' +
        'ght of the replaced letters.'
      Caption = 'trim'
      TabOrder = 48
      OnClick = SetChecks
    end
    object CheckReplaceCasesensitive: TCheckBox
      Left = 5
      Top = 112
      Width = 44
      Height = 17
      Hint =
        'Pay attention to the case (uppercase, lowercase) of the letters ' +
        'which should be replaced.'
      Caption = 'case'
      TabOrder = 49
      OnClick = SetChecks
    end
  end
  object PanelCase: TPanel
    Left = 2
    Top = 664
    Width = 297
    Height = 62
    BevelInner = bvRaised
    BorderStyle = bsSingle
    Color = 13624016
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    object Label1: TLabel
      Left = 8
      Top = 2
      Width = 105
      Height = 13
      Caption = 'First change case to...'
    end
    object Label2: TLabel
      Left = 151
      Top = 2
      Width = 45
      Height = 13
      Caption = '...then to:'
    end
    object SpeedbuttonCase: TSpeedButton
      Left = 272
      Top = 0
      Width = 15
      Height = 17
    end
    object CheckMac: TCheckBox
      Left = 91
      Top = 39
      Width = 190
      Height = 17
      Hint =
        'mcjanik => McJanik, dj janik => DJ Janik, mc example MC Example,' +
        ' now i see mr. janik => now I see Mr. Janik, lp => LP, l.a. => L' +
        '.A.'
      Caption = 'I am DJ McDonald'#39's'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SetChecks
    end
    object StaticText5: TStaticText
      Left = 136
      Top = 16
      Width = 16
      Height = 17
      Caption = '=>'
      TabOrder = 1
    end
    object ComboFirstCase: TComboBox
      Left = 8
      Top = 18
      Width = 129
      Height = 21
      Cursor = crHandPoint
      Hint =
        'UPPER CASE (haLLo => HALLO), lowercase (=> hallo), invert case (' +
        'HAllO)'
      Style = csDropDownList
      ImeMode = imHanguel
      ItemHeight = 13
      Items.Strings = (
        'leAve CaSe'
        'UPPER CASE'
        'lower case'
        'iNVERT cASE'
        'rAnDOm')
      TabOrder = 2
      OnChange = SetChecks
    end
    object ComboSecondCase: TComboBox
      Left = 151
      Top = 18
      Width = 129
      Height = 21
      Cursor = crHandPoint
      Hint =
        'First letter ('#39'hello there [michael]'#39' => '#39'Hello there [michael]'#39 +
        '), First and after breaks ('#39'Hello there [Michael]'#39'), English sty' +
        'le=Every first letter of every word ('#39'Hello There [Michael]'#39')'
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'leAve CaSe'
        'First letter only'
        'First (And breaks)'
        'English Style'
        'Religious style')
      TabOrder = 3
      OnChange = SetChecks
    end
  end
  object PanelFileSpec: TPanel
    Left = 0
    Top = 0
    Width = 297
    Height = 209
    Hint = 'Doubleclick to browse Network'
    BorderStyle = bsSingle
    Color = 15845834
    TabOrder = 1
    OnDblClick = BrowseDirectory
    object Bevel2: TBevel
      Left = 6
      Top = 134
      Width = 281
      Height = 49
      ParentShowHint = False
      ShowHint = True
    end
    object Bevel8: TBevel
      Left = 164
      Top = 8
      Width = 54
      Height = 63
      Shape = bsLeftLine
    end
    object Bevel10: TBevel
      Left = 229
      Top = 138
      Width = 50
      Height = 39
      Shape = bsLeftLine
    end
    object Bevel5: TBevel
      Left = 7
      Top = 53
      Width = 154
      Height = 36
      Shape = bsTopLine
    end
    object SpeedbuttonFileSpec: TSpeedButton
      Left = 283
      Top = 2
      Width = 5
      Height = 5
      Flat = True
      Spacing = 0
      Transparent = False
      OnClick = AlterPanelHeight
    end
    object CheckOnlyWithinX: TCheckBox
      Left = 7
      Top = 184
      Width = 267
      Height = 17
      Hint =
        'Restrict further previewing/processing to files, which are CURRE' +
        'NTLY marked by "X"'
      Caption = 'Process only files wich are currently marked by "X"'
      TabOrder = 19
      OnClick = StickToX
    end
    object SpinEditSplit: TSpinEdit
      Left = 234
      Top = 156
      Width = 50
      Height = 22
      Hint = 'Split at this position, instead of a dot.'
      MaxValue = 255
      MinValue = -255
      ParentShowHint = False
      ShowHint = True
      TabOrder = 13
      Value = 0
      OnChange = SetChecksAndSortAndGetFiles
    end
    object StaticText6: TStaticText
      Left = 234
      Top = 137
      Width = 48
      Height = 17
      Caption = 'or split @'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
    end
    object EditFileSpec: TEdit
      Left = 8
      Top = 7
      Width = 73
      Height = 21
      Ctl3D = True
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      Text = '*.*'
      OnChange = GetFilesDelayed
    end
    object CheckSubdirs: TCheckBox
      Left = 8
      Top = 33
      Width = 83
      Height = 17
      Hint = 'Search subdirs? How deep?'
      Caption = 'Subdir levels'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = SetChecksDefinitelyGetFiles
    end
    object SpinEdit3: TSpinEdit
      Left = 90
      Top = 29
      Width = 70
      Height = 22
      Hint = 'How many subdirs deep?'
      MaxLength = 3
      MaxValue = 255
      MinValue = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      Value = 3
      OnChange = GetFilesWhenChecked
    end
    object RadioNameOnly: TRadioButton
      Left = 14
      Top = 138
      Width = 57
      Height = 17
      Hint = 'Only rename fileNAME'
      Caption = 'Name'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      TabStop = True
      OnClick = SetChecks
    end
    object RadioExtonly: TRadioButton
      Left = 64
      Top = 138
      Width = 70
      Height = 17
      Hint = 'Only rename fileEXTENSION'
      Caption = 'Extension'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = SetChecks
    end
    object RadioWholeName: TRadioButton
      Left = 136
      Top = 138
      Width = 84
      Height = 17
      Hint = 'Rename whole filename (fileNAME and fileEXTENSION)'
      Caption = 'Whole Name'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 12
      OnClick = SetChecks
    end
    object DriveComboBox1: TDriveComboBox
      Left = 88
      Top = 7
      Width = 73
      Height = 19
      Cursor = crHandPoint
      Hint = 'Choose drive'
      DirList = DirectoryListBox1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
    end
    object DirectoryListBox1: TDirectoryListBox
      Left = 8
      Top = 76
      Width = 281
      Height = 53
      Hint = 'Choose subdirectory'
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 16
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnChange = GetFiles
    end
    object StaticTextName: TStaticText
      Left = 11
      Top = 160
      Width = 32
      Height = 17
      Caption = 'Name'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 16
    end
    object StaticTextExt: TStaticText
      Left = 66
      Top = 160
      Width = 50
      Height = 17
      Caption = 'Extension'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 14
    end
    object EditNameExtSeparator: TEdit
      Left = 45
      Top = 157
      Width = 17
      Height = 21
      Hint =
        'Separator. A name is separated from the extension normally by a ' +
        'dot '#39'.'#39' You may use "?" before and after. Example: "?.??" would ' +
        'define the separator as a dot and 1 char before and the 2 chars ' +
        'after the dot. You may use 2 or more separators '#39'. | a | go'#39
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      Text = '.'
      OnChange = SetChecksAndSortAndGetFilesDelayed
    end
    object EditNotName: TEdit
      Left = 171
      Top = 27
      Width = 74
      Height = 21
      Hint =
        'Ignore filesNAMES with this text. "a" => Don'#39't show any files wi' +
        'th "a" in them. "xd | ko" => Ignore any files with "xd" OR "ko"'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnChange = GetFilesDelayed
    end
    object StaticTextExceptExt: TStaticText
      Left = 247
      Top = 55
      Width = 44
      Height = 17
      Caption = 'in exten.'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 15
    end
    object CheckExceptName: TCheckBox
      Left = 171
      Top = 8
      Width = 102
      Height = 17
      Hint = 'File name/extension must not contain this text...'
      Caption = 'no file contains...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = SetExceptgeFiles
    end
    object EditNotExt: TEdit
      Left = 171
      Top = 51
      Width = 74
      Height = 21
      Hint = 'Ignore file EXTENSIONS with this text...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnChange = GetFilesDelayed
    end
    object StaticTextExceptName: TStaticText
      Left = 248
      Top = 32
      Width = 41
      Height = 17
      Caption = 'in name'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 17
    end
    object CheckDescription: TCheckBox
      Left = 8
      Top = 56
      Width = 73
      Height = 17
      Hint = 'Read descript.ion files? This function is slow.'
      Caption = 'descript.ion'
      TabOrder = 18
      OnClick = GetFiles
    end
    object CheckDelimiterCase: TCheckBox
      Left = 183
      Top = 158
      Width = 45
      Height = 17
      Hint =
        'Name-Extension-Separator is case sensitive? So '#39'a'#39' is different ' +
        'to '#39'A'#39
      Caption = 'case'
      Checked = True
      State = cbChecked
      TabOrder = 20
      OnClick = SetChecksAndSortAndGetFiles
    end
    object Checkmp3Tag: TCheckBox
      Left = 91
      Top = 57
      Width = 65
      Height = 17
      Caption = 'mp3 Tag'
      TabOrder = 21
      Visible = False
      OnClick = GetFiles
    end
    object ComboReplaceOccurenceNameExt: TComboBox
      Left = 114
      Top = 156
      Width = 64
      Height = 21
      Hint =
        'normally the LAST dot is treated as the name-extension separator' +
        '. But you may change it to the first, the second...'
      Style = csDropDownList
      ItemHeight = 13
      Items.Strings = (
        'last occurence'
        '1st occurence'
        '2nd occurence'
        '3rd occurence'
        '4th occurence'
        '5th occurence'
        '6th occurence'
        '7th occurence'
        '8th occurence'
        '9th occurence')
      TabOrder = 22
      OnChange = SetChecksAndSortAndGetFiles
    end
  end
  object PanelStandards: TPanel
    Left = 4
    Top = 216
    Width = 297
    Height = 169
    BevelInner = bvRaised
    BorderStyle = bsSingle
    Color = 13158640
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    object Bevel3: TBevel
      Left = 140
      Top = 4
      Width = 25
      Height = 157
      Shape = bsLeftLine
    end
    object Bevel4: TBevel
      Left = 144
      Top = 89
      Width = 143
      Height = 29
      Shape = bsTopLine
    end
    object SpeedbuttonStandards: TSpeedButton
      Left = 275
      Top = 3
      Width = 15
      Height = 17
      Flat = True
    end
    object CheckBox2: TCheckBox
      Left = 5
      Top = 128
      Width = 65
      Height = 17
      Hint = 'Delete the first or last letters of a filename'
      Caption = 'Kill letters'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SetChecks
    end
    object CheckDelNum: TCheckBox
      Left = 5
      Top = 83
      Width = 113
      Height = 16
      Hint = '"12- look" => "look". Useful with Winamp'
      Caption = 'Kill begin.number&&..'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 18
      OnClick = SetChecks
    end
    object EditDelAfterNum: TEdit
      Left = 117
      Top = 77
      Width = 20
      Height = 21
      Hint =
        'Deletes the number only when followed by this... (Leave empty to' +
        ' delete any leading number)'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 20
      Text = '-'
      OnChange = SetChecksDelayed
    end
    object CheckDelSpace: TCheckBox
      Left = 5
      Top = 98
      Width = 129
      Height = 17
      Hint = '" Hallo   you  " => "Hallo you"'
      Caption = 'Kill end/double space'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 16
      OnClick = SetChecks
    end
    object CheckUnderscore: TCheckBox
      Left = 5
      Top = 5
      Width = 130
      Height = 17
      Hint =
        'don_t => don'#39't, i_m => i'#39'm, mr_ => mr., 12__ => 12'#39#39', _ve => '#39've' +
        '....'
      Caption = 'Replace _ if possible'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 6
      OnClick = SetChecks
    end
    object CheckShitSpace: TCheckBox
      Left = 5
      Top = 37
      Width = 129
      Height = 16
      Hint = '" & " => "&", "( " => "(", " )" => ")", " '#39's" => "'#39's"'
      Caption = 'Kill unnecessary space'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 8
      OnClick = SetChecks
    end
    object CheckShorten64: TCheckBox
      Left = 145
      Top = 5
      Width = 114
      Height = 17
      Hint =
        'Delete spaces around brackets if filename is longer than 64 char' +
        's (for CD-R).'#13#10'Red when couldn'#39't be shortened.'
      Caption = 'Shorten to 64 letters'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = SetChecks
    end
    object SpinEdit1: TSpinEdit
      Left = 70
      Top = 122
      Width = 55
      Height = 22
      Hint = 'Plus values for beginning chars, Minus values for ending chars'
      Constraints.MinHeight = 2
      MaxValue = 255
      MinValue = -255
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      Value = 0
      OnChange = SetChecks
    end
    object CheckDelBegThe: TCheckBox
      Left = 5
      Top = 68
      Width = 88
      Height = 17
      Hint =
        'Delete beginning "The", "and" => "&", "and the"=> "&", ft. => "~' +
        '", feat=> "~", " vs " => "^", " meets " => "�". Useful with arti' +
        'st'#39's names'
      Caption = 'Shorten artist'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 12
      OnClick = SetChecks
    end
    object CheckStandarize: TCheckBox
      Left = 5
      Top = 113
      Width = 49
      Height = 17
      Hint = '� and ` => '#39
      Caption = '`� => '#39
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = SetChecks
    end
    object CheckEleet: TCheckBox
      Left = 145
      Top = 92
      Width = 49
      Height = 17
      Hint =
        'eleet => 31337, LZEASBTXGO => 1234567890. This is totally unnece' +
        'ssary, but fun.'
      Caption = 'Eleet'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = SetChecks
    end
    object CheckShortenDestructive: TCheckBox
      Left = 145
      Top = 21
      Width = 123
      Height = 17
      Hint = '"of" => "o'#39'", "remix" => "remx"  => "rmx" => "rx" => "X"'
      Caption = 'Destruct to 64 letters'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = SetChecks
    end
    object CheckKeepTooLong: TCheckBox
      Left = 145
      Top = 69
      Width = 131
      Height = 17
      Hint =
        'When shorten and destruct didn'#39't make the file less then 65 char' +
        's, then don'#39't change it at all'
      Caption = 'Undo when still too long'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 5
      OnClick = SetChecks
    end
    object CheckStandarizeMp3: TCheckBox
      Left = 5
      Top = 53
      Width = 129
      Height = 17
      Hint =
        '"--" => "-", " - " => "#", Delete "_wav" and "_mp3", "%20" => " ' +
        '"'
      Caption = 'Typical song standards'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 14
      OnClick = SetChecks
    end
    object CheckPerc: TCheckBox
      Left = 145
      Top = 108
      Width = 64
      Height = 17
      Hint =
        'Converts chars to hex %values. Useful when you want to scramble ' +
        'your file names'
      Caption = 'Hex%34'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = SetChecks
    end
    object CheckNoPerc: TCheckBox
      Left = 214
      Top = 108
      Width = 67
      Height = 17
      Hint =
        'Converts hex %values to chars. Note that %20 is also converted b' +
        'y "Typical song standards"'
      Caption = 'Kill hex%'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 9
      OnClick = SetChecks
    end
    object CheckTacho: TCheckBox
      Left = 200
      Top = 124
      Width = 53
      Height = 17
      Hint = 'ibm.exe => hal.exe. (Increases every letter)'
      Caption = 'Tacho'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      OnClick = SetChecks
    end
    object CheckShift: TCheckBox
      Left = 145
      Top = 124
      Width = 49
      Height = 17
      Hint = 'hallo => ohall. (Rotates the filename)'
      Caption = 'Shift'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 13
      OnClick = SetChecks
    end
    object SpinShift: TSpinEdit
      Left = 145
      Top = 140
      Width = 37
      Height = 22
      MaxValue = 255
      MinValue = -255
      ParentShowHint = False
      ShowHint = True
      TabOrder = 15
      Value = 0
      OnChange = SetChecks
    end
    object SpinTacho: TSpinEdit
      Left = 200
      Top = 140
      Width = 36
      Height = 22
      MaxValue = 0
      MinValue = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 17
      Value = 0
      OnChange = SetChecks
    end
    object CheckUneleet: TCheckBox
      Left = 196
      Top = 92
      Width = 65
      Height = 17
      Hint =
        'Uneleet. Warning, it'#39's not a perfect undo for eleet: Numbers are' +
        ' replaced by lowercase letters => Could be unwanted'
      Caption = 'Uneleet'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 19
      OnClick = SetChecks
    end
    object CheckReplaceAllBetweenLetters: TCheckBox
      Left = 5
      Top = 21
      Width = 129
      Height = 17
      Hint =
        'Every underscore ("_") between letters will become space. "i_lov' +
        'e_you" => "i love you"'
      Caption = '_ to space betw. letters'
      TabOrder = 21
      OnClick = SetChecks
    end
    object CheckKillSpacesBetweenLetters: TCheckBox
      Left = 145
      Top = 37
      Width = 144
      Height = 17
      Hint =
        '"Wanna be startin'#39' somethin" => "MichaelJackson-WannaBeStartin'#39'S' +
        'omethin"'
      Caption = 'NoSpaceBetweenLetters'
      TabOrder = 22
      OnClick = SetChecks
    end
    object CheckKillVocals64: TCheckBox
      Left = 145
      Top = 53
      Width = 68
      Height = 17
      Hint = 'Delete vowals to shorten to 64 letters'
      Caption = 'Kill vowals'
      TabOrder = 23
      OnClick = SetChecks
    end
    object CheckKillDoubles64: TCheckBox
      Left = 214
      Top = 53
      Width = 77
      Height = 17
      Hint = 'Delete double letters. "Madonna" => "Madona"'
      Caption = 'No doubles'
      TabOrder = 24
      OnClick = SetChecks
    end
  end
  object StringGrid1: TStringGrid
    Left = 308
    Top = 112
    Width = 477
    Height = 465
    BorderStyle = bsNone
    Color = 15000804
    ColCount = 6
    Ctl3D = True
    FixedCols = 0
    RowCount = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Default'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goColMoving, goRowSelect]
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    OnColumnMoved = colmoved
    OnTopLeftChanged = Ar2Grid
    ColWidths = (
      71
      96
      26
      34
      25
      19)
    RowHeights = (
      24
      24)
  end
  object PanelSortOptions: TPanel
    Left = 300
    Top = 1
    Width = 297
    Height = 45
    BevelOuter = bvLowered
    Color = 14927803
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 3
    object EditSortSequence: TEdit
      Left = 160
      Top = 8
      Width = 57
      Height = 21
      Hint =
        'Example: "en" => Sort by extension and if same extension then so' +
        'rt by name'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnChange = ChangeSortTypeDelayed
    end
    object CheckValueSensitiv: TCheckBox
      Left = 222
      Top = 6
      Width = 74
      Height = 17
      Hint = 'Sorts "a203b.gif" after "a99c.gif"'
      Caption = #39'a1'#39' < '#39'a02'#39
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 1
      OnClick = ChangeSortType
    end
    object ComboSortType: TComboBox
      Left = 8
      Top = 8
      Width = 145
      Height = 21
      Hint =
        'Sort by... (You can use uppercase letters "N", "E", "P" for case' +
        ' sensitivity)'
      Style = csDropDownList
      Ctl3D = False
      DropDownCount = 20
      ItemHeight = 13
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnChange = ChangeSortSequence
    end
    object CheckSortX: TCheckBox
      Left = 222
      Top = 22
      Width = 67
      Height = 17
      Hint = 'Sort all files, which will be renamed to the top'
      Caption = 'X to top'
      TabOrder = 3
      OnClick = SortX
    end
  end
  object PanelView: TPanel
    Left = 302
    Top = 55
    Width = 297
    Height = 42
    Color = 11580834
    TabOrder = 2
    object Bevel9: TBevel
      Left = 179
      Top = 4
      Width = 50
      Height = 35
      Shape = bsLeftLine
    end
    object CheckUpdate: TCheckBox
      Left = 8
      Top = 4
      Width = 101
      Height = 17
      Hint =
        'Immediately view changes. Uncheck if this is too slow with large' +
        ' subdirectories. START will be disabled then.'
      Caption = 'Instant preview'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 0
      OnClick = SetInstantPreview
    end
    object ButtonUpdate: TButton
      Left = 102
      Top = 6
      Width = 73
      Height = 15
      Hint =
        'Reads the directory again, or if "Instant preview" has been turn' +
        'ed off.'
      Caption = 'Refresh'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = RefreshNow
    end
    object Button2: TButton
      Left = 184
      Top = 5
      Width = 65
      Height = 15
      Hint = 'Reset grid'
      Caption = 'Reset Grid'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = ResetStringGrid
    end
    object ButtonFont: TButton
      Left = 184
      Top = 23
      Width = 41
      Height = 15
      Hint = 'Change Font. Press ctrl for font dialog'
      Caption = 'Font'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = ChangeFont
    end
    object ButtonView: TButton
      Left = 227
      Top = 23
      Width = 49
      Height = 15
      Hint = 'Show only "Old filename" or only "New filename"'
      Caption = 'View'
      TabOrder = 4
      OnClick = ChangeView
    end
    object CheckForProblems: TCheckBox
      Left = 8
      Top = 23
      Width = 145
      Height = 17
      Hint =
        'Check for duplicate filenames and for existing filenames on hard' +
        ' disk'
      Caption = 'Instant problems checking'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 5
      OnClick = ProblemsCheckingAndRenameTest
    end
    object SpinNextX: TSpinButton
      Left = 279
      Top = 4
      Width = 15
      Height = 34
      Hint =
        'Press ctrl or not. Jump to the next one, which is to be changed,' +
        ' or has an illegal filename, or is too long'
      Ctl3D = True
      DownGlyph.Data = {
        AE000000424DAE00000000000000360000002800000009000000060000000100
        1000000000007800000000000000000000000000000000000000E03DE03DE03D
        E03DE03DE03DE03DE03DE03D0300E03DE03DE03DE03D0000E03DE03DE03DE03D
        3D02E03DE03DE03D000000000000E03DE03DE03D3D02E03DE03D000000000000
        00000000E03DE03D8502E03D0000000000000000000000000000E03DC981E03D
        E03DE03DE03DE03DE03DE03DE03DE03DCA81}
      ParentCtl3D = False
      TabOrder = 6
      UpGlyph.Data = {
        AE000000424DAE00000000000000360000002800000009000000060000000100
        1000000000007800000000000000000000000000000000000000E03DE03DE03D
        E03DE03DE03DE03DE03DE03D0200E03D0000000000000000000000000000E03D
        3A02E03DE03D00000000000000000000E03DE03DCD02E03DE03DE03D00000000
        0000E03DE03DE03DC981E03DE03DE03DE03D0000E03DE03DE03DE03DC981E03D
        E03DE03DE03DE03DE03DE03DE03DE03DCB81}
      OnDownClick = FindNextXdown
      OnUpClick = FindNextXUp
    end
    object Button3: TButton
      Left = 251
      Top = 5
      Width = 25
      Height = 15
      Hint = 'Maximize grid'
      Caption = 'Max'
      TabOrder = 7
      OnClick = MaxView
    end
    object Button4: TButton
      Left = 154
      Top = 23
      Width = 23
      Height = 15
      Hint =
        'Set naming restrictions to simulate illegal filenames in other o' +
        'perating systems'
      Caption = 'OS'
      TabOrder = 8
      OnClick = DefineNameRestrictions
    end
  end
  object PanelStart: TPanel
    Left = 1
    Top = 720
    Width = 297
    Height = 53
    BevelInner = bvLowered
    BevelOuter = bvNone
    Ctl3D = True
    ParentCtl3D = False
    TabOrder = 4
    object LabelCountFiles: TLabel
      Left = 277
      Top = 33
      Width = 12
      Height = 13
      Hint = 'Number of files in subdirs'
      Alignment = taRightJustify
      Caption = '12'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentColor = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
    end
    object SpeedbuttonStart: TSpeedButton
      Left = 248
      Top = 32
      Width = 23
      Height = 22
    end
    object StartButtonOld: TButton
      Left = 4
      Top = 4
      Width = 234
      Height = 25
      Hint = 'Start renaming (Number of files)'
      Caption = 'Start'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Visible = False
      OnClick = RenameStart
    end
    object StartButton: TGradBtn
      Left = 4
      Top = 4
      Width = 234
      Height = 25
      Hint = 'Start renaming (Number of files)'
      DisabledColor = clGray
      BtnHiliteClr = 15395562
      BtnShadowClr = 3092271
      BtnFrameSize = 2
      TxtHiliteClr = clWhite
      TxtShadowClr = clGray
      BeginColor = clRed
      EndColor = clWhite
      SwapColors = False
      GradientStyle = gsElliptic
      Caption = 'Start'
      OnClick = RenameStart
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TabOrder = 3
      TabStop = True
    end
    object ButtonUndo: TButton
      Left = 242
      Top = 4
      Width = 50
      Height = 25
      Hint =
        'Undo ALL renamings. No guarantee that it will work. I haven'#39't te' +
        'sted the behaviour with too little memory!!'
      Caption = 'Undo All'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = RenameUndo
    end
    object CheckDontProcessProblems: TCheckBox
      Left = 5
      Top = 33
      Width = 209
      Height = 17
      Hint = 'Skip all files which are marked by a "0", by "!" or by "D"'
      Caption = 'Don'#39't rename problematic files (!,D,0)'
      TabOrder = 2
      OnClick = SetChecks
    end
  end
  object PanelExpertMode: TPanel
    Left = 308
    Top = 590
    Width = 297
    Height = 65
    Color = clRed
    TabOrder = 8
    Visible = False
    OnDblClick = ChangeToExpertMode
    object SpeedbuttonExpertMode: TSpeedButton
      Left = 272
      Top = 0
      Width = 23
      Height = 17
    end
    object MemoExpertReminder: TMemo
      Left = 8
      Top = 8
      Width = 281
      Height = 49
      Hint = 'Doubleclick here to change to expert mode.'
      Alignment = taCenter
      BiDiMode = bdLeftToRight
      Color = 4227327
      Ctl3D = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Lines.Strings = (
        'Expert mode is turned OFF.'
        '*press F2 to turn it on and off'
        '*OR start 1-4a Rename with "/e"'
        '*OR doubleclick here')
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 0
      OnDblClick = ChangeToExpertMode
    end
  end
  object Panelemail: TPanel
    Left = 307
    Top = 718
    Width = 297
    Height = 43
    Color = 16723350
    TabOrder = 9
    OnClick = GoBrowser
    OnDblClick = GoBrowser
    object Button1: TButton
      Left = 8
      Top = 8
      Width = 281
      Height = 25
      Caption = 'This is eMail ware. You must eMail me! CLICK HERE'
      TabOrder = 0
      OnClick = GoBrowser
    end
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 610
    Top = 15
  end
  object PopupMenu1: TPopupMenu
    Left = 608
    Top = 48
    object ThisiseMailwareYoumusteMailmeifyouwanttocontinuetousethisprogram1: TMenuItem
      Caption = 'This is eMail-ware. You must eMail me!'
      OnClick = GoBrowser
    end
    object Foundabug1: TMenuItem
      Caption = 'Found a bug? Have a suggestion?'
      OnClick = GoBrowser
    end
    object DoyouliketheprogramDoyouhatetheprogram1: TMenuItem
      Caption = 'Do you like the program? Do you hate the program?'
      OnClick = GoBrowser
    end
    object Emailme1: TMenuItem
      Caption = 'Email me! Email me! Email me!'
      OnClick = GoBrowser
    end
  end
  object WebData1: TWebData
    Data = <
      item
        URL = 'http://www.1-4a.com/rename/ver.txt'
        ScanFirst = '*'
        ScanFrom = '*'
        ScanTo = '*'
      end>
    OnData = gottenversion
    Left = 640
    Top = 16
  end
  object Timer1: TTimer
    Interval = 0
    OnTimer = SetChecks
    Left = 648
    Top = 48
  end
  object Timer2: TTimer
    Interval = 0
    OnTimer = GetFiles
    Left = 680
    Top = 48
  end
  object Timer3: TTimer
    Interval = 0
    OnTimer = SetChecksAndSortAndGetFiles
    Left = 712
    Top = 48
  end
  object Timer4: TTimer
    Interval = 0
    OnTimer = ChangeSortType
    Left = 744
    Top = 48
  end
  object pvlUrl1: TpvlUrl
    Url = 'http://www.1-4a.com/rename/email.htm'
    Left = 672
    Top = 16
  end
  object dfsBrowseDirectoryDlg1: TdfsBrowseDirectoryDlg
    Root = idNetwork
    Options = [bfDirectoriesOnly, bfAncestors]
    Caption = 'Choose a folder'
    ShowSelectionInStatus = False
    Left = 704
    Top = 16
  end
  object Timer5: TTimer
    Interval = 0
    OnTimer = SetSizes
    Left = 776
    Top = 48
  end
  object PopupMenu2: TPopupMenu
    Left = 608
    Top = 80
    object filename1: TMenuItem
      Caption = 'Filename'
      object name1: TMenuItem
        Caption = 'Name'
        OnClick = InsertPOPname
      end
      object Extension1: TMenuItem
        Caption = 'Extension'
        OnClick = InsertPOPextension
      end
      object Separator1: TMenuItem
        Caption = 'Separator'
        OnClick = InsertPOPseparator
      end
      object Length1: TMenuItem
        Caption = 'Length'
        OnClick = InsertPOPlength
      end
      object Date1: TMenuItem
        Caption = 'Date'
        object Date3: TMenuItem
          Caption = 'Date'
          OnClick = InsertPOPdate
        end
        object Date2: TMenuItem
          Caption = 'Startrek Star Date 1'
          OnClick = InsertPOPst1
        end
        object StartrekStarDate21: TMenuItem
          Caption = 'Startrek Star Date 2'
          OnClick = InsertPOPst2
        end
      end
      object Time1: TMenuItem
        Caption = 'Time'
        object Time2: TMenuItem
          Caption = 'Time'
          OnClick = InsertPOPtime
        end
        object English1: TMenuItem
          Caption = 'English'
          OnClick = InsertPOPtimepm
        end
      end
      object Size1: TMenuItem
        Caption = 'Size'
        OnClick = InsertPOPsize
      end
      object Part11: TMenuItem
        Caption = 'Part1'
        OnClick = InsertPOPpart1
      end
      object Part21: TMenuItem
        Caption = 'Part2'
        OnClick = InsertPOPpart2
      end
      object SeparatorPart1: TMenuItem
        Caption = 'Separator Part'
        OnClick = InsertPOPpart0
      end
    end
    object Path1: TMenuItem
      Caption = 'Path'
      object Fullpath1: TMenuItem
        Caption = 'Full path'
        OnClick = InsertPOPfullpath
      end
      object Folder1: TMenuItem
        Caption = 'Folder'
        OnClick = InsertPOPfolder
      end
    end
    object Number1: TMenuItem
      Caption = 'Number'
      object Originalfilenumber1: TMenuItem
        Caption = 'Unsorted file number'
        OnClick = InsertPOPunsorted
      end
      object Sortedfilenumber1: TMenuItem
        Caption = 'Sorted file number'
        OnClick = InsertPOPsorted
      end
      object Totalfiles1: TMenuItem
        Caption = 'Total files'
        OnClick = InsertPOPtotalnumber
      end
      object Random1: TMenuItem
        Caption = 'Random'
        OnClick = InsertPOPrandomnumber
      end
    end
    object Todaysdate1: TMenuItem
      Caption = 'Misc'
      object Todaysdate2: TMenuItem
        Caption = 'Today'#39's date'
        OnClick = InsertPOPtoday
      end
      object N4DOSdescription1: TMenuItem
        Caption = '4DOS descript.ion'
        OnClick = InsertPOP4dos
      end
      object Enoughletterstojustify1: TMenuItem
        Caption = 'Enough letters to justify'
        OnClick = InsertPOPjustify
      end
      object Random2: TMenuItem
        Caption = 'Random'
        OnClick = InsertPOPrandomchar
      end
    end
  end
end